home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 3 / inter@ivo 1996-04.iso / cybint3 / bin / cybint3.exe / cybint3.DXR / 00022.ls < prev    next >
Encoding:
Text File  |  1996-03-21  |  1.2 KB  |  46 lines
  1. on exitFrame
  2.   global GArray, ContCol, ContLine, Foto1, Foto2, Foto3, Foto4
  3.   if ContCol = 1 then
  4.     set aux to getAt(GArray, ContLine)
  5.     set Foto1 to getAt(aux, ContLine)
  6.     set the locH of sprite Foto1 to 0
  7.     set the locV of sprite Foto1 to 0
  8.     set the visible of sprite Foto1 to 1
  9.     set ContCol to ContCol + 1
  10.     go(the frame)
  11.   end if
  12.   if ContCol = 2 then
  13.     set aux to getAt(GArray, ContLine)
  14.     set Foto2 to getAt(aux, ContCol)
  15.     set the locH of sprite Foto2 to 320
  16.     set the locV of sprite Foto2 to 0
  17.     set the visible of sprite Foto2 to 1
  18.     set ContCol to ContCol + 1
  19.     go(the frame)
  20.   end if
  21.   if ContCol = 3 then
  22.     set aux to getAt(GArray, ContLine)
  23.     set Foto3 to getAt(aux, ContCol)
  24.     set the locH of sprite Foto3 to 320
  25.     set the locV of sprite Foto3 to 240
  26.     set the visible of sprite Foto3 to 1
  27.     set ContCol to ContCol + 1
  28.     go(the frame)
  29.   end if
  30.   if ContCol = 4 then
  31.     set aux to getAt(GArray, ContLine)
  32.     set Foto4 to getAt(aux, ContCol)
  33.     set the locH of sprite Foto4 to 0
  34.     set the locV of sprite Foto4 to 240
  35.     set the visible of sprite Foto4 to 1
  36.     set ContCol to 1
  37.     set ContLine to ContLine + 1
  38.     go(the frame)
  39.   end if
  40.   go(the frame + 1)
  41. end
  42.  
  43. on mouseUp
  44.   go("logo")
  45. end
  46.